home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / wordproc / me_cd25 / writenf.mut < prev    next >
Encoding:
Text File  |  1992-05-10  |  333 b   |  16 lines
  1.   ;; $Source: c:/lib/mutt/RCS/writenf.mut $
  2.   ;; $Revision: 1.2 $
  3.   ;; $Date: 1992/05/10 13:03:45 $
  4.   ;; Bob Stocker Public Domain
  5.  
  6. (defun
  7.   write-named-file
  8.   ;; Write-file and rename buffer as suggested in C Durland's me2.doc
  9.   {
  10.     (rename-buffer
  11.       (ask "Write named file: ")
  12.     )
  13.     (write-file "")
  14.   }
  15. )  
  16.